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[0111] 



L-W03-@3U6@-@%19@-SEC SECTION. 
L-W03-@X16@-@%19@-START. 

*— < m^wfe >— 

IF @%16@-@%19@ OF W03 NOT = @%20® 

GO TO L-W03-@%16@-@%19@-EXIT 
END- IF. 
*—< @B£^ >— 

*— < AlJMWi<D£% W0 2St*;h >- 

* MOVE @X16@-@%19@ OF W02 

* TO @X16@-@%19@ OF W03. 

* MOVE G#####-***** OF W03 

* TO F#####-****« OF F#####-REC. 

* PERFORM I0-W03-RD*-SEC. 

* IF RD*-INVS = "IV 

* MOVE @%20@ TO @%16@-@%19@ OF W03 

* ELSE 

* MOVE F#####-@%19@ OF F#####-REC 

* TO @%16@-@%19@ OF W03 

* END-IF. 

* COMPUTE @%16@-@%19@ OF W03 

* = ###-### OF W03 

* + ***-*** OF W03. 
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*— < J&ftWJt >~ 

IF @%16@-@%19@ OF W03 = 
* OR ®%16@-@%19@ OF W03 > 0 

ADD 1 TO @%16i-@^19@-CNT 
IF @%16@-@%19@-CNT < RECALL-MAX 
MOVE T TO RECALL-FLG 

ELSE 

MOVE "1" TO @%16@-@%19<§-N0N 
END- IF 
END-IF. 

L-W03-@%16@-@%19i-EXIT. 
EXIT, j 

@ % i 6 @ ttisaai?, 

@%2 0@{iMtt(c*fjt5Lfe r^j 

F#####tt77>fWtW-^«il«fl:Hi!lf 

###-###&#*■♦ *-* * *tt||[»K:J:y#ffi-i-6fe»© a fc fil5Rc j )¥R 

[0 112] 

#IS^^©ffi^@%8@ 
®MWJ^-©ffl^@ 16® 
#S§SKJ5'J^©«#®% 19® 
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»tt<0«#@%2 0 @ 

*— < IBM >— 

*— < AilMftiOtg W0 2£-feyh >— 

* MOVE @5K16@-@%19@ OF WO 2 

* TO @5&16@-@%19@ OF W03. 

*— < mjjm&<D£% )iizm-Mm&&nixzz.fr > 

* MOVE G#####-***** OF W03 

* TO F#####-***** OF F#####-REC. 

* PERFORM I0-W03-RD*-SEC. 

* IF RD*-INVS = "IV" 

* MOVE @%20@ TO @%16@-@%19@ OF W03 

* ELSE 

* MOVE F#####-@%19@ OF F#####-REC 

* TO @SU6@-@%19@ OF W03 

* END- IF. 

* COMPUTE @%16@-@%19@ OF W03 

* = ###-### OF W03 

* + ***-*** OF W03. 

[0 113] 

*— < A£«tt©££ WO 2 h >— 

* MOVE @%16@-@%19@ OF W02 

* TO @%16@-@%19@ OF W03. 
^f-^xU7 (D. i, Wn) - lCf-^^f-^i'Jy (D, i, Wn) 



2 8 



1 1-3024558 




10 — 0718 3 8 

* MOVE G#####-**«* OF W03 

* TO F#####-***«* OF F#####-REC. 

* PERFORM I0-W03-RD*-SEC. 

* IF RD*-INVS = "IV" 

* MOVE @%20@ TO @%16@-@%19t OF W03 

* ELSE 

* MOVE F#####-@%19@ OF F#####-REC 

* TO @Xl6S-tXl9e OF W03 

* END- IF. 



* COMPUTE @X16@-@%19@ OF W03 

* = ###-### OF W03 

* + OF W03. 

[0 114] 

(D&M. @%8@ > @%16@, @%19@, @%2 0i, ##### % ### 

##, * % * * * * * % ### _ ### ^ ***-*** ic^-^-jit^ggjgg^ 
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[0 115] 



* Off 
* 



L-W03-GSO I 08-PASSN01 -SEC SECT I ON . 
L-W03-GSO I 08-PASSN01 -START . 

*— < tiMWfe >— 

IF GSOI08-PASSN01 OF W03 NOT = LOW-VALUE 

GO TO L-W03-GSOI08-PASSN01-EXIT 
END-IF. 
*— < eB£f£ >— 

*— < AtjM&OUg WO 2 h >— 

MOVE GS0I08-PASSN01 OF W02 

TO GS0I08-PASSN01 OF W03 

*— < >— 

IF GS0I08-PASSN01 OF W03 = LOW-VALUE 
OR GSOI08-PASSN01 OF W03 > 0 

ADD 1 TO GSOI 08-PASSN01-CNT 
IF GS0I08-PASSN01-CNT < RECALL-MAX 
MOVE "1" TO RECALL-FLG 

ELSE 

MOVE "1" TO GSOI08-PASSN01-NON 
END-IF 
END-IF. 
L- W03-GSO I 08-PASSN01 -EX I T . 
EXIT. 

* 

* . 
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L-W03-GS0 I 08-CLNAME-SEC SECTION. 
L-W03-GSO I 08-CLNAME- START . 

< nmm%. >— 

IF GSOI08-CLNAME-XX OF W03 NOT = ALL "9" 

GO TO L-W03-GS0I 08-CLNAME-EX IT 
END- IF. 

-< >— 

MOVE G SOI 08- PASSN01 OF W03 
TO FMOTOFIL- PASSN01 OF FMOTOFIL-REC. 
PERFORM I0-W03-RD1-SEC. 
IF RD1-INVS = "IV" 

MOVE ALL "9" TO GSOI 08-CLNAME-XX OF W03 

ELSE 

MOVE FMOTOFIL-CLNAME OF FMOTOFIL-REC 

TO GSOI 08-CLNAME OF W03 

END-IF. 
< J&fiWfc >— 

IF GSOI 08-CLNAME-XX OF W03 = ALL "9" 
OR GSOI 08-CLNAME-XX OF W03 > 0 
ADD 1 TO GSO I 08-CLNAME-CNT 
IF GSOI 08-CLNAME-CNT < RECALL-MAX 
MOVE "1" TO RECALL-FLG 

ELSE 

MOVE "1" TO GSO I 08-CLNAME-NON 
END-IF 
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END-IF. 
L-W03-GSO I 08-CLNAME-EX I T . 
EXIT. 

* 

* 

■ * . 

L-W03-GSO I 08- YOKNZ AN-SEC SECTION. 
^ L-W03-GS0 I 08- YOKNZAN-START . 

*— < m&m&. >— 

IF GSOI 08-YOKNZAN OF W03 NOT = LOW-VALUE 

GO TO L-W03-GSOI 08-YOKNZAN-EXIT 
END-IF. 
*— < >— 

MOVE G SOI 08- PASSN01 OF W03 

TO FMOTOFIL- PASSN01 OF FMOTOFIL-REC. 
^ • PERFORM I0-W03-RD1-SEC. 

IF RD1-INVS = "IV" 

MOVE ALL "9" TO GSO I 08-CLNAME-XX OF W03 

ELSE 

MOVE FMOTOF I L-YOKNZAN OF FMOTOFIL-REC 

TO GSOI 08-YOKNZAN OF W03 

END-IF. 
*— < >— 

IF GSO I 08-YOKNZAN OF W03 = LOW- VALUE 
OR GSO I 08-YOKNZAN OF W03 > 0 

ADD 1 TO GSO I 08-YOKNZAN-CNT 
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IF GSO I 08-YOKNZAN-CNT < RECALL-MAX 
MOVE "1" TO RECALL-FLG 

ELSE 

MOVE "1" TO GSOI 08-YOKNZAN-NON 
END- IF 
END-IF. 

L-W03-GS0I 08- YOKNZAN-EX I T . 
EXIT. 



;* V -fe - V 



L-W03-GSOI 08-MSSGCD1-SEC SECTION. 
L-W03-GS01 08-MSSGCD 1 -START . 

*— < Mmmfe >— 

IF GS0I08-MSSGCD1 OF W03 NOT = LOW-VALUE 

GO TO L- W03-GSO I 08-MSSGCD 1 -EX I T 
END-IF. 

*— < §BM >— 

*— < m&vm >— 

IF GS0I08-MSSGCD1 OF W03 = LOW-VALUE 
OR GSOI08-MSSGCD1 OF W03 > 0 

ADD 1 TO GSOI 08-MSSGCD1-CNT 
IF GSOI 08-MSSGCD1-CNT < RECALL-MAX 
MOVE "1" TO RECALL-FLG 

ELSE 

MOVE "1" TO GSO I 08-MSSGCD1 -NON 
END-IF 



&SE#¥ 11- 
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END- IF. 
L-W03-GSO I 08-MSSGCD1-EX I T . 
EXIT. 

* 

* mr 

L-W03-GSOI 08-PF3KEY-SEC SECTION. 
L-W03-GSO I 08-PF3KEY-START . 

*— < nmm& >— 

IF GS0I08-PF3KEY OF W03 NOT = LOW-VALUE 

GO TO L-W03-GSOI08-PF3KEY-EXIT 
END-IF. 
*— < SBi^ >— 
*— < 134^1 
*— < f&±LW%. >— 

IF GS0I08-PF3KEY OF W03 = LOW-VALUE 
OR GS0I08-PF3KEY OF W03 > 0 

ADD 1 TO GSOI 08-PF3KEY-CNT 
IF GSOI 08-PF3KEY-CNT < RECALL-MAX 
MOVE "1" TO RECALL-FLG 

ELSE 

MOVE "1" TO GSO I 08-PF3KEY-NON 
END-IF 
END-IF. 
L-W03-GSO I 08-PF3KEY-EX I T . 
EXIT. 



ffifE#^ 1 1 
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L-W03-GSOI 08-PF25KEY-SEC SECT I ON . 
L-W03-GSOI08-PF25KEY-START. 

*— < mmm%. >— 

IF GSOI08-PF25KEY OF W03 NOT = LOW-VALUE 

GO TO L-W03-GSOI08-PF25KEY-EXIT 
END- IF. 

*— < §B4S >— 

*— < ea^i 
*— < >— 

IF GSOI08-PF25KEY OF W03 = LOW-VALUE 
OR GS0I08-PF25KEY OF W03 > 0 

ADD 1 TO GSO I 08-PF25KEY-CNT 
IF GSOI 08-PF25KEY-CNT < RECALL-MAX 
MOVE "1" TO RECALL-FLG 

ELSE 

MOVE "1" TO GSOI08-PF25KEY-NON 
END- IF 
END-IF. 
L-W03-GSOI 08-PF25KEY-EX I T . 
EXIT. 

[0 116] 



* — 



@%8@ 
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Y-W03-@%16@-@2U9@-SEC SECTION. 
Y-B03-tXl68-iXl9i-START . 

IF @%16@-@5K19@ OF W02 NOT = @%20@ 
MOVE @%16@-@%19@ OF W02 
TO @%16@-@%19@ OF W03 

END-IF. 
Y-W03-@%16@-@X19@-EXIT. 
EXIT. 



[0 117] 

* 

* 

Y-W03-GS0 I 08-PASSNO 1 -SEC SECT I ON . 
Y-W03-GS0 I 08-PASSN01-START . 

IF GS0I08-PASSNO1 OF W02 NOT = LOW-VALUE 
MOVE GSOI08-PASSN01 OF W02 
TO GSOI08-PASSNO1 OF W03 

END-IF. 
Y-W03-GSO I 08-PASSN01 -EX I T . 
EXIT. 

* 
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Y-W03-GSO I 08-CLNAME-SEC SECTION. 
Y-W03-GSOI 08-CLNAME- START . 

IF GSO I 08-CLNAME-XX OF W02 NOT = ALL "9* 
MOVE GSOI 08-CLNAME OF W02 
TO GSOI 08-CLNAME OF W03 

END-IF. 
Y-W03-GSOI 08-CLNAME-EX I T . 
EXIT. 



Y-W03-GSOI 08-YOKNZAN-SEC SECTION. 
Y-W03-GSOI 08-YOKNZAN-START. 

IF GSOI 08-YOKNZAN OF W02 NOT = LOW-VALUE 
MOVE GSO I 08-YOKNZAN OF W02 
TO GSOI 08-YOKNZAN OF W03 

END-IF. 
Y-W03-GSOI 08-YOKNZAN-EX I T . 
EXIT. 



* — 



;* v - V 



Y-W03-GSOI 08-MSSGCD1-SEC SECTION. 
Y-W03-GSOIO 8-MSSGCD 1 -START . 

IF GS0I08-MSSGCD1 OF W02 NOT = LOW-VALUE 
MOVE GSOI08-MSSGCD1 OF W02 
TO GSOI08-MSSGCD1 OF W03 
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END-IF. 
Y- W03-GS0 I 08-MSSGCD1 -EX I T . 
EXIT. 

* 

* 



Y-W03-GS0I 08-PF3KEY-SEC SECTION. 
Y-W03-GSOI 08-PF3KEY-START . 

IF GSOI08-PF3KEY OF W02 NOT = LOW-VALUE 
MOVE GSOI08-PF3KEY OF W02 
TO GS0I08-PF3KEY OF W03 

END-IF. 
Y-W03-GSOI 08-PF3KEY-EX I T . 
EXIT. 



* 



Y-W03-GSOI 08-PF25KEY-SEC SECT I ON . 
Y-W03-GS0I 08-PF25KEY-START . 

IF GSOI08-PF25KEY OF W02 NOT = LOW-VALUE 
MOVE GS0I08-PF25KEY OF W02 
TO GSOI08-PF25KEY OF W03 

END-IF. 
Y- W03-GS0 I 08-PF25KEY-EX I T . 
EXIT. 
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[0 1 1 8] 

*— < @%8@ 

PERFORM L-W03-@%16@-@%19@-SEC. 



[0119] 



*— < 



PERFORM Y-W03-@%16@-@%19i-SEC. 



[0 12 0] 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 

SOURCE-COMPUTER. 

OBJECT-COMPUTER. 
INPUT-OUTPUT 
FILE-CONTROL. 



AS400. 
AS400. 
SECTION. 



*— KE Y#iJ— * 
SELECT @%16@ 



ASSIGN TO DATABASE-@%16@ 

ORGANIZATION IS INDEXED 
ACCESS MODE IS DYNAMIC 

RECORD KEY IS EXTERNALLY-DESCRIBED-KEY 
WITH DUPLICATES 
FILE STATUS IS @%24@. 



*— KEY4SL— * 
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* SELECT @%16@ ASSIGN TO DATABASE-@%16@ 

* ORGANIZATION IS SEQUENTIAL 

* ACCESS MODE IS SEQUENTIAL 

* FILE STATUS IS @%24@. 
DATA DIVISION. 

FILE SECTION. 
FD @%16@ 

LABEL RECORD IS STANDARD. 
01 @%16@-R. 

COPY DDS- ALL-FORMATS OF ®%16@. 
01 @X16@-REC. 

COPY @%g@. 

WORKING-STORAGE SECTION. 

01 PALETTE-WORK. 

03 PS PIC S9(03) COMP. 

01 WK-FILE-STATUS. 

03 i%24@ PIC X(02). 

01 FILE-STATUS. 

03 @%7@-0PNS PIC X(01). 

03 @%7@-REDS PIC X(01). 

03 @%7@-INVS PIC X(02). 

*— <wo3 ww? vrizmm-tz* 

[0121] 
01 WK-@%16@. 
COPY @%16@. 

LINKAGE SECTION. 



4 0 £KliE#¥ 11-3024558 
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*— < CTRL >— * 

01 CTRL-AREA. 

COPY CTRLAREA. 
*— < W02 >— * 

01 W02-AREA. 

02 W02 OCCURS 5. 
COPY W0204. 

* — < MM >— 

03 W2-@%16@ REDEFINES INFO. 
COPY @%16@. 

03 @5&16@-NON REDEFINES NON-FLG. 
COPY @%16@N. 

*— < W03 >— * 
01 W03-AREA. 
02 W03. 

* -< i/Fmm>— 

03 W03-CNTRL. 

05 RECALL-FLG PICX(l). 
05 RECALL-MAX PIC 9(2). 

* — < mm >— 

03 W03-ITEMS. 

04 W03-@%16@. 
COPY @%16@. 

04 W03-FILE. 
COPY @%16@. 

04 W03-LIST. 

COPY @%16@. 
— < ^ff&±L7^if >— 
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03 W03-N0N. 



COPY 



@%16@N. 



COPY 



@%16@N. 



COPY 



@%16@N. 



— < nmmm >— 



03 W03-CNT. 

COPY @%16@Z. 
COPY @%16iZ. 
COPY @%16tZ. 
*— < W04 >— * 
01 W04-AREA. 

02 W04 OCCURS 5. 
COPY W0204. 

* — < MM > — 

03 W04-@%16@ REDEFINES INFO. 

COPY @%16@. 
03 OPTION-IDX-DEF REDEFINES OPTION-IDX. 
COPY @%16@C. 

*— < WFL >— 
01 WFL-AREA. 

03 FILLER PIC X(01). 
xx********x************tix*x**x*xxxx*xxxxx*********xx**x*** 

PROCEDURE DIVISION USING CTRL-AREA 



W02-AREA 



W03-AREA 



W04-AREA 



WFL-AREA. 



XXXXXXXXXXXXXXXXXXXXXXXXXXXX 



MA I N 
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* *********************X****** 

MAIN-SEC SECTION. 
MAIN-START. 

*— < mmm >— 

PERFORM INIT-PROC. 

*— < &iBmm >— 

PERFORM Y-PROC. 
*— < HHi >— 

PERFORM UNTIL RECALL-FLG = SPACE 

MOVE SPACE TO RECALL-FLG 
PERFORM L-PROC 
END-PERFORM. 
* — < P write 

PERFORM I0-W03-WT*-SEC. 
PERFORM I0-W03-UP*-SEC. 

*— < %k&m >— 

PERFORM FIN-PROC. 
MAIN-END. 

EXIT PROGRAM. 

* ftf&Sg * 

*****************# 

INIT-PROC SECTION. 
I NIT-START. 

< &mm mm >— 

INITIALIZE PALETTE-WORK. 

INITIALIZE WK-FILE-STATUS. 

INITIALIZE FILE-STATUS. 

MOVE SPACE TO FLAME-FLG OF CTRL-AREA. 

4 3 m«E#^ i ! 
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MOVE 05 TO RECALL-MAX. 

MOVE HIGH-VALUE TO RECALL-FLG. 
*— < Xf-^No. Wife >— 

MOVE STAGE-NO OF CTRL-AREA TO PS. 
IF (PS < 1) OR (PS > 5) 

MOVE "STAGEERR" TO MSG-NO 
END-IF. 

*— < " <DWL!& >— (LOW-VALUE / ALL" 9" ) 

MOVE LOW-VALUE TO WK-@%1@. 

*— < WO 3 " ST (Dnfe >— (LOW-VALUE / ALL" 9" ) 
MOVE LOW-VALUE TO WK- ITEMS. 

MOVE WK-@%1@ TO W03-@%1@. 

*— < ®mt >— 

INITIALIZE W03-NON. 
INITIALIZE W03-CNT. 
INIT-EXIT. 
EXIT. 

* ********************* 

Y-PROC SECTION. 
Y-START. 
*— < @%1@ 

COPY 
Y-EXIT. 

EXIT. 

X ******************** 



******************** 
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L-PROC SECTION. 
L-START. 
*— < @%1@ 
COPY 
L-EXIT. 
EXIT. 

► ******************** 

* * 

******************** 

FIN-PROC SECTION. 
FIN-START. 

— < -7 7 4/1 CLOSE > 
FIN-EXIT. 
EXIT. 

* &*BH^ - section^ * 

-< txii 

COPY fXlt. 

* t&&^^ - section^ * 

-< @%m 

copy exit. 

* FILE I /O x 
x************************* 
******************** 
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*— < is - & y is )U READ ? @%8@ >— 
I0-W03-@J67@-SEC SECTION. 
I0-W03-@%7@-START. 

IF @%7@-0PEN NOT = "1" 

OPEN INPUT @%16@ 
MOVE "1" TO @%7@-0PNS 

END-IF. 

READ @%16@ AT END 

MOVE "E" TO F-END 

GO TO IO-W03-@%7@-EXIT 

END-READ. 
I0-W03-@%7@-EXIT. 
EXIT. 

*— < KEY READ ? @%8@> — 
I 0— W03— @%7@— SEC SECTION. 
IO-W03-@5£7@-START. 

IF @%7@-0PNS NOT = "1" 

OPEN INPUT @%16@ 
MOVE "1" TO @%7@-0PNS 

END-IF. 

IF @%7<8-REDS NOT = "1" 

READ ®%16@ INVALID 

MOVE "IV" TO @%7@-INVS 
GO TO IO-W03-@5i7@-EXIT 

END-READ 

MOVE "1" TO @%7@-REDS 

I0-W03-@%7@-EXIT. 
EXIT. 



4 6 £BliE#¥ 11-3024558 




10 — 071838 

SB****************** 
X******************* 

*— < ®%8@ >— 

IO-W03-@%7@-SEC SECTION. 
I0-W03-@%7@-START. 

IF @5K7@-OPNS NOT = "1" 

OPEN OUTPUT @%16@ 
MOVE "1" TO @%7@-0PNS 

END- IF. 

WRITE @%16@-REC INVALID 
MOVE "IV" TO @%7<g-INVS 
GO TO IO-W03-@%7@-EXIT 
END-WRITE. 
I0-W03-@%7@-EXIT. 
EXIT. 

* ******************** 

* ******************** 

I0-W03-@%7@-SEC SECTION. 
IO-W03-@%7@-START. 
*~< KEY READ ? @%8@ >— 

IF @%7@-0PNS NOT = "1" 

OPEN 1-0 @%16@ 
MOVE "1" TO <8%7@-0PNS 

END-IF. 

* — < k e y Mfe 

MOVE WFL-RD?-KEY-#1 TO k e yfgg 197 
READ @%16@ INVALID 
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MOVE "IV" TO @%7@-INVS 
GO TO IO-W03-@%7@-EXIT 

END-READ. 
*--< UPDATE ? @%8@ >— 

IF @%7@-INVS NOT = "IV" 

REWRITE @%16§-REC INVALID 

MOVE "IV" TO @%7@-INVS 
GO TO I0-W03-@%7@-EXIT 

END-REWRITE 
END- IF. 
I0-W03-@5&7@-EXIT. 
EXIT. 
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